Copyright: DProgress Copyright DameWare Development 1997
Citation: DameWare Development 1997


 DProgress Help Index

Properties	Methods	Events

DProgress Custom Control

Description:

DameWare Progress is a 32-bit custom control for use with Visual Basic, Visual C++ and Web pages or any environment that can host ActiveX controls.  DameWare DProgress control will allow the developer to display a colorful graphic which will illustrate the progress of any given process.  Functionally similar to the Microsoft Setup Wizard progress indicator visible during an application’s setup process, DProgress is totally customizable including built-in timer, configurable progress ranges, variable stepping rates, intervals and more!  DProgress is uniquely distinguished by the ability to produce graduated color gradients during the progress generation.  Solid colors, horizontal and vertical bars, the popular ‘boxes’ displayed during progress, as well as graduated colors within each, make DProgress a necessary addition to any application.

The DameWare DProgress ActiveX control utilizes the ActiveX Template Library (ATL), which reduces dependencies on other library files.  Additional information on the ATL is available on our web site at: http://www.dameware.com/faq.htm

Registration:

How to register

What do I get when I register

License

Copyright

Installation and Support:

Installation

Technical Support

Using within a Web page


Technical Support

Technical Support is provided in any of the following ways for your convenience:

•  If possible, we prefer that you use e-mail to communicate with us. Because we check e-mail many times daily (most often via our support@dameware.com account), you can be sure we will be able to respond to you quickly.

•  Online FAQ is available at http://www.dameware.com/faq.htm.

•  Online discussion group can be viewed at http://www.dameware.com/discuss.htm.

•  You can fax us at 504-626-1189.

•  You can contact us by phone at 504-626-7545 (recommended to be used as a last resort)

DAMEWARE DEVELOPMENT

1024 Live Oak Loop

Mandeville, La.  70448


How to register
How To Order

For added convenience, you may order DProgress in any of the following ways:

♦	Visit our Web Site at http://www.dameware.com/northstar.htm to order online with your Visa, MasterCard or Discover credit card, fax your order, or order by telephone:

Online at http://www.dameware.com/northstar.htm
Faxed Orders at 1-785-539-3743
Phoned Orders  calls taken 10am - 8pm, EST, Monday-Friday
     1-800-699-6395 (From the USA only)
     1-785-539-3731

Be sure to reference product number #2629 when ordering from NorthStar.

Note: Any product or support questions should be sent to support@dameware.com.  NorthStar solutions is a purchase vendor only, for DameWare Development, and unable to answer any questions about our products!

♦	For quantity pricing, please contact DameWare Development at sales@dameware.com.

♦	If you prefer to pay by check, or money order please send order information to:

DAMEWARE DEVELOPMENT

1024 Live Oak Loop

Mandeville, LA.  70448

♦	For payment by purchase order please send order information to address below, or fax to 504-626-1189:

DAMEWARE DEVELOPMENT

1024 Live Oak Loop

Mandeville, LA.  70448

Note: NorthStar Solutions does NOT accept purchase orders.


What do I get when I register
What do I get when I order

There are no limitations in this shareware release, but you may encounter a "nag" screen from time to time.  Upon receipt of your order you will receive a license file which will remove the "nag" screen. The product will be registered in your name and you will receive the latest version.  It's a small price to pay for your peace of mind. You may also wish to check on our Web Home Page for the latest version which you have rights to use as a registered user.  Our Web Home Page address is:  http://www.dameware.com.


License Agreement

DProgress is not public domain or free software.

DProgress is copyrighted, and all rights are reserved by DameWare Development.

Licensing:

1. shareware version

You may use the shareware version of DProgress for up to 30 days in your design environment for evaluation purposes only. You may copy and distribute it freely as long as all the files in the package, including the demo programs are distributed with it and no changes or additions of any kind are made to the original package.

2. registered version

As a registered user, you can use DProgress in your design environment and you have a royalty-free right to distribute executables that use DProgress as a runtime component. Only registered users can distribute executables using DProgress.

You may copy the software to facilitate your use of it on as many computers as there are licensed users specified in the license file. Making copies for any other purpose violates international copyright laws. In particular, you are prohibited from distributing a registered version of DProgress, except as a runtime component of one of your applications.

The license file allows you to compile your applications with DProgress. You are not allowed to distribute the DProgress.LIC or DProgress.LPK license files with any application that you distribute.

Disclaimer of Warranty:

THIS SOFTWARE AND THE ACCOMPANYING FILES ARE SOLD "AS IS"  WITHOUT WARRANTY OF ANY KIND EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.

Good data processing procedure dictates that any program be thoroughly tested with non-critical data before relying on it.

The user must assume the entire risk of using the program.

Your use of this product indicates that you have read and agreed to these terms.


Installation

DameWare DProgress is distributed with a self-extracting installation wizard file - DProgressW.exe.  Once executed, DProgressW.exe will install the DProgress components into a directory of your choosing (c:\Program Files\DameWare\DProgress\ by default), and register the DProgress.dll component into the Windows system registry.

The following is a list of the files installed during the installation wizard process:

DProgress.CNT	Contents file for On-line documentation

DProgress.DLL	32-bit ActiveX DLL Control

DProgress.EXE	Dprogress VB sample executable

DProgress.FRM	Dprogress VB sample form

DProgress.HLP	On-line documentation

DProgress.HTM	Dprogress Web page sample file

DProgress.VBP	Dprogress VB sample project file

Once you have registered the DProgress component, you will receive the following license files:

DProgress.LIC	License file

DProgress.LPK	License file for web pages

Distribution Note:

When you create and distribute applications that use DProgress, you can install the appropriate file in the customer's Microsoft Windows \SYSTEM subdirectory, or any specific directory as long as the component is registered to that subdirectory.

Note: You are not allowed to distribute the DProgress.LIC or DProgress.LPK license files with any application that you distribute.


Using within a Web page.
Using in a Web page

DProgress Active control can easily be used in a Web Page.  The following is a simple example.  You may also wish to visit sites such as Microsoft at (http://www.microsoft.com/workshop) or DameWare Development’s home page at (http://www.dameware.com).

<html>

<head>

<title>DProgress</title>

</head>

<body>

<p>

<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331" width="0" height="0">

  <param name="LPKPath" value="dprogress.lpk"><embed src="dprogress.lpk">

</object>

</p>

<p>DProgress </p>

<div align="center"><center>

<table border="0" width="100%">

  <tr>

    <td width="70%" valign="top" align="left">

    <object id="DProgress1" classid="clsid:BEF057DD-6F14-11D1-9A25-00C04FD8DC2E"

    codebase="dprogress.dll#Version=1,0,0,5" width="500" height="35">

      <param name="Position" value="0">

      <param name="Interval" value="50">

      <param name="SetStep" value="5">

      <param name="ProgressColor" value="255">

      <param name="BackColor" value="16777215">

      <param name="ForeColor" value="0">

    </object>

    <object id="DProgress2" classid="clsid:BEF057DD-6F14-11D1-9A25-00C04FD8DC2E"

    codebase="dprogress.dll#Version=1,0,0,5" width="500" height="35">

      <param name="Interval" value="25">

      <param name="ForeColor" value="4227327">

      <param name="Text" value=" Process is %3.3i%% complete ">

      <param name="ProgressColor" value="16711680">

      <param name="BackColor" value="16777215">

      <param name="DrawStyle" value="1">

    </object>

    <object id="DProgress3" classid="clsid:BEF057DD-6F14-11D1-9A25-00C04FD8DC2E"

    codebase="dprogress.dll#Version=1,0,0,5" width="500" height="35">

      <param name="Interval" value="60">

      <param name="ForeColor" value="255">

      <param name="BackColor" value="10526880">

      <param name="ProgressColor" value="16711680">

      <param name="DrawStyle" value="2">

    </object>

    <object id="DProgress4" classid="clsid:BEF057DD-6F14-11D1-9A25-00C04FD8DC2E"

    codebase="dprogress.dll#Version=1,0,0,5" width="500" height="35">

      <param name="Interval" value="75">

      <param name="BackColor" value="16777215">

      <param name="ForeColor" value="0">

      <param name="ProgressColor" value="65535">

      <param name="DrawStyle" value="3">

    </object>

    <object id="DProgress9" classid="clsid:BEF057DD-6F14-11D1-9A25-00C04FD8DC2E"

    codebase="dprogress.dll#Version=1,0,0,5" width="500" height="35">

      <param name="Interval" value="250">

      <param name="BackColor" value="16777215">

      <param name="ForeColor" value="0">

      <param name="ProgressColor" value="16711680">

    </object>

    <object id="DProgress10" classid="clsid:BEF057DD-6F14-11D1-9A25-00C04FD8DC2E"

    codebase="dprogress.dll#Version=1,0,0,5" width="500" height="35">

      <param name="Interval" value="25">

      <param name="DrawStyle" value="1">

      <param name="ForeColor" value="16711680">

      <param name="BackColor" value="8454143">

      <param name="ProgressColor" value="65535">

    </object>

    </td>

    <td width="50%">

    <object id="DProgress5" classid="clsid:BEF057DD-6F14-11D1-9A25-00C04FD8DC2E"

    codebase="dprogress.dll#Version=1,0,0,5" width="45" height="200">

      <param name="Interval" value="30">

      <param name="Appearance" value="1">

      <param name="BackColor" value="16777215">

      <param name="ForeColor" value="0">

      <param name="ProgressColor" value="16711680">

    </object>

    <object id="DProgress6" classid="clsid:BEF057DD-6F14-11D1-9A25-00C04FD8DC2E"

    codebase="dprogress.dll#Version=1,0,0,5" width="45" height="200">

      <param name="Interval" value="70">

      <param name="Appearance" value="1">

      <param name="BackColor" value="16777215">

      <param name="DrawStyle" value="1">

      <param name="ForeColor" value="0">

      <param name="ProgressColor" value="16711935">

    </object>

    <object id="DProgress7" classid="clsid:BEF057DD-6F14-11D1-9A25-00C04FD8DC2E"

    codebase="dprogress.dll#Version=1,0,0,5" width="45" height="200">

      <param name="Interval" value="80">

      <param name="Appearance" value="1">

      <param name="DrawStyle" value="2">

      <param name="ProgressColor" value="65408">

      <param name="ForeColor" value="0">

      <param name="BackColor" value="16777215">

    </object>

    <object id="DProgress8" classid="clsid:BEF057DD-6F14-11D1-9A25-00C04FD8DC2E"

    codebase="dprogress.dll#Version=1,0,0,5" width="45" height="200">

      <param name="Interval" value="55">

      <param name="Appearance" value="1">

      <param name="DrawStyle" value="3">

      <param name="BackColor" value="0">

      <param name="ForeColor" value="65535">

      <param name="ProgressColor" value="16776960">

    </object>

    </td>

  </tr>

</table>

</center></div>

<p align="center">&nbsp;<input type="BUTTON" value="Stop" name="BtnStop"> <br>

<script language="VBSCRIPT">

Dim lStep

Dim bGoingRight

Dim RndValue

Sub DProgress1_OnTimer

If DProgress1.Position = 1000 Then

DProgress1.Interval = 0

End If

DProgress1.StepIt

End Sub

Sub DProgress2_OnTimer

If DProgress2.Position = 100 Then

DProgress2.Interval = 0

End If

DProgress2.StepIt

End Sub

Sub DProgress3_OnTimer

If DProgress3.Position = 100 Then

DProgress3.Interval = 0

End If

DProgress3.StepIt

End Sub

Sub DProgress4_OnTimer

If DProgress4.Position = 100 Then

DProgress4.Interval = 0

End If

DProgress4.StepIt

End Sub

Sub DProgress5_OnTimer

If DProgress5.Position = 100 Then

DProgress5.Interval = 0

End If

DProgress5.StepIt

End Sub

Sub DProgress6_OnTimer

If DProgress6.Position = 100 Then

DProgress6.Interval = 0

End If

DProgress6.StepIt

End Sub

Sub DProgress7_OnTimer

If DProgress7.Position = 100 Then

DProgress7.Interval = 0

End If

DProgress7.StepIt

End Sub

Sub DProgress8_OnTimer

If DProgress8.Position = 100 Then

DProgress8.Interval = 0

End If

DProgress8.StepIt

End Sub

Sub DProgress9_OnTimer

    RndValue = Int((100 * Rnd) + 1)    ' Generate random value between 1 and 6.

    DProgress9.Position = RndValue

End Sub

Sub DProgress10_OnTimer

If DProgress10.Position = 100 Then

    bGoingRight = 1

End If

If DProgress10.Position = 0 Then

    bGoingRight = 0

End If

If bGoingRight = 0 Then

    lStep = 1

Else

    lStep = -1

End If

    	DProgress10.Position = DProgress10.Position + lStep

End Sub

Sub BtnStop_OnClick

DProgress1.Interval = 0

DProgress2.Interval = 0

DProgress3.Interval = 0

DProgress4.Interval = 0

DProgress5.Interval = 0

DProgress6.Interval = 0

DProgress7.Interval = 0

DProgress8.Interval = 0

DProgress9.Interval = 0

DProgress10.Interval = 0

End Sub

</script> <br>

</p>

</body>

</html>


Displays appropriate Copyright notices
Copyright

Copyright© 1998 DameWare Development

Portions of this product are Copyrighted (c) 1991-1998 by Microsoft Corporation.

All rights are reserved. All  Microsoft Corporation disclaimers apply.

DProgress is a trademark of DameWare Development.

Microsoft Windows is a registered trademark of Microsoft Corporation.


Displays Properties
Properties

All the properties are listed below. Properties that apply only to

DProgress, or require special consideration when used with it,

are underlined. They are documented in this help file. See the

Visual Basic Language Reference or online Help for

documentation of the remaining properties.

(About)	(Custom)
Name	Appearance
BackColor	BorderStyle
BorderVisible	DragIcon
DragMode	DrawStyle
Font	ForeColor
Height	Index
Interval	Left
Position	ProgressColor
SetStep	TabIndex
Tag	Text
ToolTipText	Top
Visible	WhatsThisHelpID
Width


Display the DProgress About box
(About) Property

Properties	Methods	Events

Description

The (About) property will invoke the DameWare DProgress About box dialog from within the development environment.  This dialog is used to display the control’s registration information.

Notes

The About box dialog will be displayed in the Windows environment until the control is registered with the license file (DProgress.lic), or the Web environment with the license file (DProgress.lpk).


(Custom) Properties Pages dialog box.
(Custom) Property

Properties	Methods	Events

Description

The (Custom) property will load the Properties Pages dialog box.  This dialog is used to interactively display the different properties available to customize for DProgress, including various color properties and fonts used within the control display.

See Also

BackColor

ForeColor

ProgressColor


Specify the appearance as horizontal or vertical.
Appearance Property

Properties	Me

Description

Specifies the appearance of the control display - either Horizontal or Vertical.

Syntax

DProgressCtl1.Appearance = Horizontal or

DProgressCtl1.Appearance = Vertical

Data Type

Constant

Example

Private Sub Form_Load()

DProgressCtl1.Appearance = Horizontal

End Sub


Specify background color.
BackColor Property

Properties	Methods	Events

Description

Specifies the background color of the control.

Syntax

DProgressCtl1.BackColor = &HC0FFFF

Data Type

Color Constant

Example

Private Sub Form_Load()

DProgressCtl1.BackColor = &HC0FFFF

End Sub

See Also

ForeColor

ProgressColor


Specify control border style.
BorderStyle Property

Properties	Methods	Events

Description

Specifies the style of the border to be displayed around the control - either flat or 3-Dimensional.

Syntax

DProgressCtl1.BorderStyle = Border3D or

DProgressCtl1.BorderStyle = BorderFlat

Data Type

Color Constant

Example

Private Sub Form_Load()

DProgressCtl1.BorderStyle = BorderFlat

End Sub

See Also

BorderVisible


Specify whether the control border is displayed.
BorderVisible Property

Properties	Methods	Events

Description

Specifies whether the border is displayed or not displayed around the control.

Syntax

DProgressCtl1.BorderVisible = True or

DProgressCtl1.BorderVisible = False

Data Type

Constant (Boolean)

Example

Private Sub Form_Load()

DProgressCtl1.BorderVisible = False

End Sub

See Also

BorderStyle


Specify the style for progress bar.
DrawStyle Property

Properties	Methods	Events

Description

Specifies the style in which the progress bar will be drawn within the control.

Syntax

DProgressCtl1.DrawStyle = Gradient or

DProgressCtl1.DrawStyle = RectGradient or

DProgressCtl1.DrawStyle = RectSolid or

DProgressCtl1.DrawStyle = Solid

Data Type

Constant

Example

Private Sub Form_Load()

DProgressCtl1.DrawStyle = RectGradient

End Sub


Specify font to be used for text field.
Font Property

Properties	Methods	Events

Description

Specifies the font to be used to display the control’s text field(s).  You can also set the effects (bold, italic, underline, strikeout) and size for the selected font.  This property is normally accessed via the property pages available at design time from the (Custom) property.

See Also

(Custom)


Specify the foreground color used within the progress control.
ForeColor Property

Properties	Methods	Events

Description

Specifies the foreground color to be used within the progress control.

Syntax

DProgressCtl1.ForeColor = &HFF0000

Data Type

Color Constant

Example

Private Sub Form_Load()

DProgressCtl1.ForeColor = &HFF0000

End Sub

See Also

BackColor

ProgressColor


Specify interval to advance the progress bar.
Interval Property

Properties	Methods	Events

Description

Specifies the interval at which the progress bar will advance within the control.  For example a higher interval will traverse the length of the control window faster than a lower interval.

Syntax

DProgressCtl1.Interval = 50

Data Type

Long

Example

Private Sub Form_Load()

DProgressCtl1.Interval = 25

DProgressCtl2.Interval = 60

End Sub


Specify position to begin the progress bar display.
Position Property

Properties	Methods	Events

Description

Specifies position to begin the progress bar display within the control.

Syntax

DProgressCtl1.Position = 22

Data Type

Long

Example

Private Sub DProgressCtl9_OnTimer()

Dim RndValue

RndValue = Int((100 * Rnd) + 1)    ' Generate random value between 1 and 6.

DProgressCtl9.Position = RndValue

End Sub

See Also

OffsetPos


Specify the color of the progress indicator used.
ProgressColor

Properties	Methods	Events

Description

Specifies the color of the progress indicator used within the control.

Syntax

DProgressCtl1.ProgressColor = &HFF

Data Type

Color Constant

Example

Private Sub Form_Load()

DProgressCtl9.ProgressColor = &HFF

End Sub

See Also

BackColor

ForeColor


Specify the step value for the progress bar.
SetStep Property

Properties	Methods	Events

Description

Specifies the step value for the progress bar displayed within the control.  For example a step of 10 would increment the progress bar in steps of 10 - 10, 20, 30, etc.

Syntax

DProgressCtl1.SetStep = 10

Data Type

Long

Notes

SetStep has a default value of 1.

Example

Private Sub DProgressCtl10_OnTimer()

Dim lStep As Long

If DProgressCtl10.Position = 100 Then

bGoingRight = 1

End If

If DProgressCtl10.Position = 0 Then

bGoingRight = 0

End If

If bGoingRight = 0 Then

lStep = 1

Else

lStep = -1

End If

DProgressCtl10.Position = DProgressCtl10.Position + lStep

End Sub

See Also

Position


Specify the text to be displayed within the progress window.
Text Property

Properties	Methods	Events

Description

Specifies the text to be displayed within the progress window of the control.

Syntax

DProgressCtl1.Text = “Process is %3i%% complete”

Data Type

String

Notes

DProgress examines the % syntax as follows:

%i	inserts a signed decimal integer argument (in this case the current percent)

%%	inserts a percent (%) sign

(This syntax is equivalent to the ANSI C sprintf command syntax.)

Example: 	1. “Process is %3i%% complete”  would be displayed in the control display as

    Process is 54% complete  (if the current percent is 54%)

2. “Process is %3.3i%% complete” would be displayed as:

    Process is 054% complete

Example

Private Sub Form_Load()

DProgressCtl1.Text = “Process is %3i%% complete”

End Sub


Displays Methods
Methods

All of the methods are listed below. Methods that apply only to

DProgress, or require special consideration when used

with it, are underlined. They are documented in this help file.

See the Visual Basic Language Reference or online Help for

documentation of the remaining events.

AboutBox

OffsetPos

SetRange

StepIt


Display the About Box.
AboutBox Method

Properties	Methods	Events

Description

The AboutBox method will invoke the DameWare DProgress About box dialog.  This dialog is used to display the control’s registration information.

Syntax

DProgressCtl1.AboutBox

Example

Private Sub Form_Load()

DProgressCtl1.AboutBox

End Sub


Offset the current position by a specific amount.
OffsetPos Method

Properties	Methods	Events

Description

The Offset method is used to offset the current position by a specific amount within the current range (default 0 to 100).  For instance, if the current position is 40 and OffsetPos is called with a value of 20,then the new position would be 60.

Syntax

DProgressCtl1.OffsetPos (long newVal)

Data Type

Long

Example

Private Sub Form_Load()

DProgressCtl1.OffsetPos = 30

End Sub

See Also

SetRange


Set range for the progress bar.
SetRange Method

Properties	Methods	Events

Description

Set the range that the progress indicator will run between when displayed by the control.

Syntax

DProgressCtl1.SetRange(long lLower, long LUpper)

Data Type

Long,Long

Example

Private Sub Form_Load()

DProgressCtl1.SetRange 0,27

DProgressCtl1.SetStep = 5

End Sub

See Also

OffsetPos


Step forward through the range specifed.
StepIt Method

Properties	Methods	Events

Description

Instructs the DProgress control to move forward (or reverse) one increment within the range specified.

Syntax

DProgressCtl1.StepIt

Example

Private Sub DProgressCtl7_OnTimer()

DProgressCtl7.StepIt

If DProgressCtl7.Position = 100 Then

DProgressCtl7.Interval = 0

End If

End Sub


Displays Events
Events

All the events are listed below. Events that apply only to

DProgress, or require special consideration when used

with it, are underlined. They are documented in this help file.

See the Visual Basic Language Reference or online Help for

documentation of the remaining events.

DragDrop

DragOver

OnDblClick

OnDblClick

OnMouseDown

OnMouseMove

OnMouseUp

OnTimer


Trap when the user double-clicks the mouse over the control.
OnDblClick Event

Properties	Methods	Events

Description

Trap when the user double-clicks the mouse over the control window.

Syntax

DProgressCtl1_OnDblClick(Button As Integer, Shift As Integer, x As Single, y As Single)

Data Type

Integer,Integer,Single,Single

Example

Private Sub DProgressCtl7_OnDblClick(Button As Integer, Shift As Integer, x As Single, y As Single)

MsgBox Button

End Sub

See Also

OnMouseDown

OnMouseMove

OnMouseUp


Trap when the user single-clicks the mouse over the control.
OnMouseDown Event

Properties	Methods	Events

Description

Trap when the user single-clicks the mouse over the control window.

Syntax

DProgressCtl7_OnMouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Data Type

Integer,Integer,Single,Single

Example

Private Sub DProgressCtl7_OnMouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

MsgBox Button

End Sub

See Also

OnDblClick

OnMouseMove

OnMouseUp


Trap the user moves the mouse over the control.
OnMouseMove Event

Properties	Methods	Events

Description

Trap when the user moves the mouse over the control window.

Syntax

DProgressCtl7_OnMouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Data Type

Integer,Integer,Single,Single

Example

Private Sub DProgressCtl7_OnMouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

MsgBox Button

End Sub

See Also

OnDblClick

OnMouseDown

OnMouseUp


Trap the the user releasing the mouse over the control.
OnMouseUp Event

Properties	Methods	Events

Description

Trap when the user releases the mouse button when previously clicked over the control window.

Syntax

DProgressCtl7_OnMouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

Data Type

Integer,Integer,Single,Single

Example

Private Sub DProgressCtl7_OnMouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

MsgBox Button

End Sub

See Also

OnDblClick

OnMouseDown

OnMouseMove


Timer event that relinquishes process control.
OnTimer Event

Properties	Methods	Events

Description

When the OnTimer event is fired, the DProgress control relinquishes process control.

Syntax

DProgressCtl7_OnTimer()

Example

Private Sub DProgressCtl7_OnTimer()

DProgressCtl7.StepIt

If DProgressCtl7.Position = 100 Then

DProgressCtl7.Interval = 0

End If

End Sub

See Also

StepIt